home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / src / cmds / bash-1.12 / dist / examples / functions / autoload < prev    next >
Encoding:
Text File  |  1991-07-07  |  2.6 KB  |  104 lines
  1. #
  2. # An almost ksh-compatible `autoload'.  A function declared as `autoload' will
  3. # be read in from a file the same name as the function found by searching the
  4. # $FPATH (which works the same as $PATH), then that definition will be run.
  5. #
  6. # To do this without source support, we define a dummy function that, when
  7. # executed, will load the file (thereby re-defining the function), then 
  8. # execute that newly-redefined function with the original arguments.
  9. #
  10. # It's not identical to ksh because ksh apparently does lazy evaluation
  11. # and looks for the file to load from only when the function is referenced.
  12. # This one requires that the file exist when the function is declared as
  13. # `autoload'.
  14. #
  15. # usage: autoload func [func...]
  16. #
  17. # The first cut of this was by Bill Trost, trost@reed.bitnet
  18. #
  19. # Chet Ramey
  20. # chet@ins.CWRU.Edu
  21.  
  22. #
  23. # Declare a function ($1) to be autoloaded from a file ($2) when it is first
  24. # called.  This defines a `temporary' function that will `.' the file 
  25. # containg the real function definition, then execute that new definition with
  26. # the arguments given to this `fake' function.  The autoload function defined
  27. # by the file and the file itself *must* be named identically.
  28. #
  29.  
  30. aload()
  31. {
  32.     eval $1 '() {  . '$2' ; '$1' "$@" ; return $? }'
  33. }
  34.  
  35. #
  36. # Search $FPATH for a file the same name as the function given as $1, and
  37. # autoload the function from that file.  There is no default $FPATH.
  38. #
  39.  
  40. autoload()
  41. {
  42.     #
  43.     # Save the list of functions; we're going to blow away the arguments
  44.     # in a second.  If any of the names contain white space, TFB.
  45.     #
  46.  
  47.     local args="$*"
  48.  
  49.     #
  50.     # This should, I think, list the functions marked as autoload and not
  51.     # yet defined, but we don't have enough information to do that here.
  52.     #
  53.     if [ $# -eq 0 ] ; then
  54.         echo "usage: autoload function [function...]"
  55.         return 1
  56.     fi
  57.  
  58.     #
  59.     # If there is no $FPATH, there is no work to be done
  60.     #
  61.  
  62.     if [ -z "$FPATH" ] ; then
  63.         echo autoload: FPATH not set
  64.         return 1
  65.     fi
  66.  
  67.     #
  68.     # This treats FPATH exactly like PATH: a null field anywhere in the
  69.     # FPATH is treated the same as the current directory.
  70.     #
  71.     # The path splitting command is taken from Kernighan and Pike
  72.     #
  73.  
  74.     fp=$(echo $FPATH | sed 's/^:/.:/
  75.                 s/::/:.:/g
  76.                 s/:$/:./
  77.                 s/:/ /g')
  78.  
  79.     for FUNC in $args ; do
  80.         #
  81.         # We're blowing away the arguments to autoload here...
  82.         # We have to; there are no arrays.
  83.         #
  84.         set $fp
  85.  
  86.         while [ $# -ne 0 ] ; do
  87.             if [ -f $1/$FUNC ] ; then
  88.                 break            # found it! 
  89.             fi
  90.             shift
  91.         done
  92.  
  93.         if [ $# -eq 0 ] ; then
  94.             echo "$FUNC: autoload function not found"
  95.             continue
  96.         fi
  97.  
  98. #        echo auto-loading $FUNC from $1/$FUNC
  99.         aload $FUNC $1/$FUNC
  100.     done
  101.  
  102.     return 0
  103. }
  104.